home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Linux / Kubuntu 8.10 / kubuntu-8.10-desktop-i386.iso / casper / filesystem.squashfs / usr / share / perl / 5.10.0 / utf8.pm < prev    next >
Text File  |  2008-07-24  |  379b  |  26 lines
  1. package utf8;
  2.  
  3. $utf8::hint_bits = 0x00800000;
  4.  
  5. our $VERSION = '1.07';
  6.  
  7. sub import {
  8.     $^H |= $utf8::hint_bits;
  9.     $enc{caller()} = $_[1] if $_[1];
  10. }
  11.  
  12. sub unimport {
  13.     $^H &= ~$utf8::hint_bits;
  14. }
  15.  
  16. sub AUTOLOAD {
  17.     require "utf8_heavy.pl";
  18.     goto &$AUTOLOAD if defined &$AUTOLOAD;
  19.     require Carp;
  20.     Carp::croak("Undefined subroutine $AUTOLOAD called");
  21. }
  22.  
  23. 1;
  24. __END__
  25.  
  26.